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SBEGIN RMSOCONN,000,RMSRMS,<DISPATCH ROUTINE FOR CONNECT> 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® ® 
* COPYRIGHT (¢) 1978, 1980, 1982, 1984 BY * 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
* ALL RIGHTS URESERVED. * 

® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
+ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO-ANY 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
® * 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
® ® 
® * 
& & 
* +. 
_ * 
® ® 
‘® * 
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++ 
Facility: rms32 
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: Abstract: 

3 this routine is the highest level control 

3 routine to perform the $connect function. 

: Environment: 

; star processor running starlet exec. 

: Author: L F LAVERDURE, Creation Date: 5-JAN-1977 

: Modified By: 

; v03-009 KPL0001 Peter Lieberwirth 20-Jun-1983 

3 Change some references to JNLFLG to JNLFLG2. 

; v03-008 TSk0001 Tamar Krichevsky 12-Jun-1983 
38 3 Fix broken branch to journaling psect. 

0 ; v03-007 RASO151 Ron Schaefer 29-Apr-1983 
4 : Fix broken branches to RMSCONNECT _BIO and RM CONNECTx. 
09 : v03-006 KBT0363 Keith B. Thompson 11-Oct-1982 
3 Allocate the asb as a seperate structure 

p : v03-005 LJA0026 sue’ . Anderson 11-0c t-1982 
3 No longer need R oh to RMSGTSLT, makes She call cleaner 
8 ; V03-004 JwH0002 Jeffrey W. Horn 10-Sep-1982 


[i 
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ill IRBSL_IDENT with a unique identifier for each 
RB connected throughout the life of a process. 
JA 


v03-003 LJA0019 Laurie J. Anderson 03-Sep-1982 
Check to see if this is a restart connect operation by looking 
for a context XAB (XABCXR) and whether the restart option is set 


F 
| 


rms32 isam modification. redefinition of entry point to 
resolve out of range branches. 


0 

0 v03-002 KBT0301 Keith B. Thompson 28-Aug-1982 

0 Reorganize psects and rename entry point to single ‘$' 
6 V03-001 JWwHO001 gettrey W. Horn 18-May-1982 

8 Add call to RMSCONJNL if journaling. 

0 v02-017 KDM0037 Kathleen D. Morse 12-Feb-1980 

0 Change non-kernel references to SCHS$GL_CURPCB to 
CTLS$GL_PCB instead. 

8 v016 REFORMAT D M WALP 25-JUL-1980 

0 v015 RANOOO3 R A NEWELL 20-DEC-1978 1:30 
; fixed pid bug 

. v014 RANOOO2 R A NEWELL 1-SEP-1978 12:00 
0 

0 
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DECLARATIONS 
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ONNECT ROUTINE SEP=- RMS.SRCJRMSOCONN.MAR; 1 
-SBTTL RMSSCONNECT = SCONNECT ROUTINE 
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RMSCONNECT 
RMSCONNECT- 


this routine performs the highest level $connect 
processing. its functions include: 


1. allocate and init an irab along with its asb 


¢: ger rere common setup 
- dipatch to organization-dependent routine 


Calling sequence: 


entered from exec as_a result of user's calling sys$connect 
(e.g., by using the $connect macro). 


Input Parameters: 

ap user's argument List address 
Implicit Inputs: 

the contents of the rab and the ifi field of the fab. 
; Output Parameters: 


r0 status code 
ri destroyed 


Implicit Outputs: 
various fields of the rab are filled in to reflect 


the status of the .onnected stream. (see rms functional 
spec for a complete List.) 


COOOCOCOCSCOOCOCOOOSCOoOOCSoOCOSOSoSOOOSOSOSOOOOOOOSOOOSOSOOoOSOO 20 


SOSSCSSOSOOOCOSOOOCOSOOOOSOOSOOSO OOOO SOSOOOOOCOOOOOOOOOOOOOOCOOSOOOSOSOOSO 2r 
WOOO ODO DOOOODOOOOOODOWOOOOOVODOODOVOOODOOOODODOODOOODODOOOOOOOODOOOOOO 


an irab is initialized to reflect the connected stream. 
a completion ast is queued if so specified by the user. 
Completion Codes: 
standard rms (see functional spec for List). 
Side Effects: 
none 
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DISPATCH ROUTINE FOR CONNECT 1 mites 1:12:38 yA X/VMS Macro V04-00 Page 
RMSSCONNECT = $C FONNEC ROUT INE =SEP=1984 16:24:41 (CRMS.SRCIRM SOCONN. MAR; 1 
8 184 SENTRY RM asecoyecct 
185 STSTPT CONNECT 
: ip 
as 3 3; perform common rab function setup, validating “ 
F 189 ; argument List and basic rab, and setting regs 
; 139 : follows: erllsimpure area addr, r9=isi, r creb addr, r7=caller's mode 
> 2° 
FFEE’ 30 OOF 138 BSBW RMSRABCHK 3 return from setup only if aok 
1 195 ; 
a 138 3; get ifab address via the fab 
SA 3c AB «60 S001 198 MOVL Hate FAB(R8),R10 ; get fab addr 
0016 199 TENORD #FABSC a BLN (RIO) ERRFAB : must be able to access 
03 6A 91 if 01 CMPB thee ALAS, BID : is it a fab? 
ie 8 BNEQ ERRFAB : branch if not 
50 8F 01 AA 9 ; 0 CMPB FABSB_BLN(R10) ,#FABSC_BLN 
8 04 3 ro, when 
7 #619 : 8 05 BLSS ERRBLN 
59 02 AA 3C A 38 MOVZWL FABSW_IFI(R10),R9 : 9gt 
50 06 3 02E 0 MOVL #IMPS$C_IFABTBL/4,RO tty Sapte offset/4 
FFCC* 031 08 BSBW RMSGTIADR $ ot. ifab addr (r9) 
6 1 034 09 BEQL ERRIFI 3; error if none 
00000008 t+ 10 IF NE sonme res eeenes TBUGCHK 
036 11 ASSUME IFBS$B_BID EQ 1FBSB_BLN N-1 
08 Ad =«6B1 Ss«0036 \¢ CMPW IFBSB_BID(R9) 
2E0B BF 039 1 #IFBSC_BID+<<fFBSC -BLN/4>#256> 
70~—=—s 12 80 ; 1 ree ERRBUG™ 3; branch if not a valid ifab 
5269 20 €0 O3E 16 BBS oitesy oust (R9) ,ERRACT branch if ifab already in use 
1E €0 004 17 BBS af ABSV PPF_IND+<FABSW_] Fis *8>, 
6F 6A 044 18 (R10) ,PPF_IND ; branch if indirect pet 
SA 59~Ss«é ones 19 MOVL R9,R16 : save ifab addr inr 
049 1% 
3 check for only rab unless multi-streams enable 
984 heck f ly 1 irab unl Lti bled 
49 4° 
55 23 AA QA $069 5 MOVZBL IFBSB_ORGCASE(R10),R5 ; get file org index 
040 § ASSUME jfesc_ sea EQ 0 
OD i3 4D BEQL 0$ 3; branch if sequent tal 
GF 8 3 (no multi ptreaniop? 
02 55 91 4F CMPB R5,#1FBSC_MAXORG : is this a known file org? 
98 15 3 0 BLEQ 5$ 3; branch if yes 
D4 5 1 CLRL KS 3 no - allocate seq. ton irab 
it 11 26 § BRB 10$ 3 check no multi-stre 
05 6A 1 3 5 5$: BBS #1FBSV_MSE,(R10) 50s 3: omit che - if aul ti-eareans enabled 
1c AA OD 5c 4 10$: TSTL  IFBSL_TRAB.LNK(RI : olreedy an irab? 
43 12 5F 5 BNEQ ERRCCR 3 branch i ee (error) 
61 § 20$: 
: 
61 § : Allocate irab and asb. Both structures are variable in 
3: size depending on organization. 
061 40 ize d di izati 


am 


DD PPPs ££ EE 


—OOONAUES WO OONOUES Wi 


From DRLL LS LOS FP HVA OO 


NNECT 
ROUTINE 


MOVZBL 
MOVL 


ASSUME 
SUBW3 
MULW2 
MOVL 
BRB 


BLK 
RRASB 
B$C_B1D,ASB$B8_B1D(R1) 


#<ASBSC_BLN_FIX/4>,- 
ASB_SIZE_TBCCRS5J,(R1) 


R1. IRB$L_ASBADDR(R9) 


AX/VMS Macro v04-00 Page § 
RMS .SRCJRMSOCONN.MAR; 1 (4) 


; get irab size in longwords 
; page having free space header 
a 


ocate irab 


; branch if none 

; stuff ira 

; get asb size in longwords 
; restore page having header 
; allocate asb 

; branch if none 

; make it a real one 


calculate the size of the 
stack save space in longwords 
convert it to bytes 

save address of asb 

finish irab initialization 


ee 
RMSO DISPATCH ROUTINE FOR CONNECT S$ pe] 73 AX/VMS Macro V04-00 e 7 
yor-000" RMSSCONNECT = SCONNECT ROUTINE ati tt) a era mm aes tae TOR ae 
94 63 
94 4; 
$e 5; error handling 
4 § s 
4 
12 10 0094 549 FRPACT: ne cepor 
> 29 RMSERR_WORD ACT : fab function already active 
OE 10 3 y — BSBB ERROR 
Hy ie RMSERR_WORD IF I ; invalid ifi value in fab 
44: 6 ERRFAB: 
OA 10 9C 7 BSBB ERROR 
ons 8 RMSERR_WORD FAB : invalid fab 
06 10 0A i ERRBLN: eB ERROR 
YY § RMSERR_WORD BLN : invalid block length 
DOag bz ERRCCR: 
02 10 QOA4 85 " BSBB ERROR 3 can't connect rab 
QOA 56 RMSERR_WORD CCR 
yh HH ERROR 
50 9 Hi 00A8 89 pov. a(SP)+,RO 3; in-line error code to r0 
FF52° 1 aRae 39 BRW RMSEX _NOSTR 3 report error 
OOAE 92 ERRBUG: RMSTBUG FTL$_BADIFAB ; invalid ifab table pointer 


L Ff 
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yOL-000 RMSSCONNECT CONNECT ROUTINE §-§ EP-1 1382 % 4 + i$ YRMS SRCIAMS CONN.MAR; 1 ° (B) 
: 
4 ; this is an indirect connect for a process permanent file 
; : perform various checks to see if allowed 
B o 
B PPF_IND: 
8s AA B60 008 MOVW FABSW_IFI(R10),- 
02 Ag B8 RABSW_ISI (RB) 3; save rat value in isi 
SA 6 6559—i—séOD BA MOVL R9,R10 i get ifab addr to right reg 
59° 1C AD OD BD MOVL  IFBSL_IRAB_LNK(R9),R9 ; get irab addr 
—1 1 C BEQL ERRCCR : branch if none 
CD 69 20 EO BBS #IRBSV_BUSY,(R9),ERRACT ; branch if busy 


do miscellaneous context cleanups 
62 ADs BG CLRW IRBSW_CSIZ(R9) 3; say no current record 


; return the isi value to the rab and do a structureless exit 


BHP WWIII NAIA WNILIDRIPINININPIPONINID) 2 2 OO | HM OOODOOOOCOCOWOOOOONO 


t 
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7 
7 
7 
7 
7 
A 
A 
A 
52 +4 FO 5 20$: INSV Ht Piel ISI(R9), ° 
68 06 E #RABSV_PPF _RAT, (R8) z set table index into isi 
0 RMSSUC 
3 EX_NOSTR: 
FF2A" 31 2 BRW RMSEX_NOSTR ; do structureless exit 
6 : 
6 ; irab was allocated but no irab table slot or error allocating asb - 
+4 3; deallocate the irab and return an error 
D6 
D6 ERRNOSLT: 
D6 ERRASB: 
50 OD D6 PUSHL RO $ are the error code. 
53 SA 00 D8 MOVL R10,R3 $ —- addr ? ipee space hdr 
54 14 AY 0 0DB MOVL TRBSL_ ASBADDR(RY) ,R4 : addr of 
06 1 ODF BEQL 10$ 3 Ship if none. 
FFIC* 38 RE] BSBW RMSRETBLK 3; give it back 
+. .-F8 E4 MOVL R1 3 restore Pot ire oder of free space hdr 
54 59 be 0E7 108: MOVL ; get addr o 
FF13" 30 OEA BSBW =- RMSRETBLK : give it back 
50 8ED0 ED POPL R ; Restore error code 
FFOD' 31 O0OFO BRW RMSEX_NOSTR ; Exit to user without internal structure 
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FOR CONNECT 16-SEP-1984 2:3 AX/VMS Macro V04-00 Pa 9 
NECT ROUTINE 873 p= 1984 933 ah ERMSSSRCIRMS CONN.MAR; 1 ” (10) 


o- 
F 
m 


ON 


: set irab bid, bln 


INIT_IRAB: 
MOVB #IRBSC_BID, IRB$B_BID(R9) 


; Check to see if this is a restart connect operation by looking for 
3 a context XAB and whether the restart option bit is set. 


aC, OD PUSHL 3 Save argument pointer 
FFO4' 30 BSBW RMSCONNXAB 3; Look for Context XAB - calls XAB_SCAN 
5C 8ED0 POPL AP 3; Restore AP 
D4 50 =€9 BLBC RO,ERRNOSLT ; error: return, after returning IRB pg 
04 69 38 + BBC #IRBSV VrRestA ant (R9),5$ ; If not restart operation, continue 
56 02 AB C MOVZWL RABS$W_TSI(R8),R6 ; Set up ISI value for get slot. 
3 allocate and initialize a slot in the irab table 
55 1C AB DO 5$ MOVL IMP$L_IRABTBL(R11),R5 3 set table addr 
FEEF* 30 BSBW RasetSLT 3 and get a slot 
c2 50 =—EY BLBC RO,ERRNOSLT : branch if none 
02 ASB 56 8680 MOVW R6, ;RABSW_ ISI (R8) : store isi value 
52 A9 56 80 MOVW R6,1 Resu. au 1 31 (R9) 3; save isi value 
50 00000000'9F MOVL A Tate spc RO : get addr of pcb for process 
60 AO B0 MOVW  PCB$L_PIB(ROS,- 
50 Ad IRBSH bin ID(R9) ; get process id index 


; give the irab a unique identifier 


00000000'9F 06 


INCL a#PIOSGL_NXTIRBSEQ next IRB sequence number 
34 AJ 00000000'°9F D0 


MOVL a#P 1OSGL_NXTIRBSEQ LIRBSL. 1D NT(RS) ; move into IRB 


: Link the irab into the ifab'’s chain (at start) 


C969 6909 0909 09 SINISE DDD DODDS TUTTI EE EE 
DOONAN WN O OOONAUE WN $$ O OONAULS WN OOODNAUESWN"QOOneis V2 


oo 

So 
SOOSOSCOOCOCOOSOCOOCOOOCOOCOCOCOOCOOOCOOCOCCSOSOOCOOO OOOO COOCOOOOOOOOOOOOOOCOoOO 
a ed dd od od od od I I I IOO OOO OOOO OOCOOCOOCOCO 


PUT B® BBE BB EE NA AAAAAGPIDIDINYDIDIN INI) 8 4 9 AQ 270 070 08 8 08 SF FF P88 Pe PD Pe 9 Pr 


PL NAAAAAAA AAA AIANAAAAAAAAAAANAAAAWINAIAIA AAAI IAAI AAAI AA ANIA AIAN 


HPP MODAN IMIPININPINIM OAAAAAOAM COCO COCOCOAWM COL MN > > Sb PS SHAM ONIN NNO 


69 SA 00 3 MOVL R10, IRBSL LNK(R9) ; set ifab pss 
10 AQ 1C AA ODO move. | TRBSLTRABL LNKTRYO) IRBSL_IRAB_LNK(R9) 
1C AA 590 8 MOVL  R9,IFB$L_IRAB_LNK(RI0) 
91; 
38 3; if this file is being journaled, call RMSCONJNL 
94 ° 
OC OOA2 CA O01 €1 95 BBC #1FBSV_JNL,IFBSB_ JNLFLG2(R10), 10$; branch if not jeysnal tng 
OO000000"EF 16 38 JSB RMSCONJNL ; get journal in BDB and buffer 
03 3 gS 9 BLBS RO,10$ ; Continue 
004 1 4 BRW ERRORG 3 get out on error 
00 


set stream busy and call rm$rset_alt to perform various other setups 
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yoL~000 RMSSCONNECT = SCONNECT ROUTINE ae rare CAMS SRCIRMS CONN.MAR;1 - (10) 
154 $1 ; 
154 4 ¢ 
154 4035 108: SSB #IRBSV_BUSY, (RI) ; set stream bus 
FEAS' 30 0158 404 BSBW RMSRSET_ALT 3 no error possible 
00 0158 405 -BYTE 0 3; no in-line checks 
b18e 409 
15€¢ 6408 : dispatch to organization-dependent routine 
ast 409 ; : : 
015¢ 410 
015C = 411 CASE TYPE=B,- : pickup correct routine 
13¢ a SRC=1F BSB ORGCASE (R10) - 
15C 41 DISPLIST=2100$,200$,300$> ; seq, rel, idx orgs 
0167 414 
0167 415 ;+4+ 
0167 416; 
0167 417 ; connect for unknown org. verify that only block i/o will be done, 
0167 418 ; giving error otherwise. 
0167 419 ; 
0167 420 ;-- 
0167 421 
0167 158 RMSERR ORG 3; anticipate error 
09 68 2B €1 QO16C 4 BBC #RABSV_BIO+ROP,(R8),20$ ; branch if bio rop option clear 
04 22 AA 06 E5 0170 424 BBCC  #FABSV~BRO,1FB$B_FAC(R105 ,20$ 
0175 $52 > branch if fac not bro 
22 AA 20 88 0175 426 BISB2 #FABSM_B10,1FB$B_FAC(R105 
0179 «3427 ; switch bro to bio 
22 AA 05 «2E1 «(0179S « 428 208: ~—s BBC #FABSV_BIO, IFB$B_FAC(R10) ,- 
18 017D $93 E : error if not block i/o 
Q0000000'EF 17 pie tz JMP RMSCONNECT_BIO 3 connect for block i/o 
00000000'EF 0184 $36 100$: JMP RMSCONNECT1 
00000000 ‘EF 018A 43 Sone: JMP RMSCONNECT 
00000000‘ EF 0190 434 300$: JMP RMSCONNECT 
0196 435 
0196 436 : 
FE67" 0196 437 ERRORG: BSBW RMSCCLN1 ; deallocate irab 
FE64" 0199 438 BRW RMSEX_NOSTR ; and get out 
019C 439 
019C¢ 440 END 
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RMSOCONN 


DISPATCH ROUTINE FOR CONNECT 
Psect synopsis 


i a ta 9 91:12:38 AX/VMS Macr 
SEP=1984 16:24:41 


$eoeeenmaece eena sen + 


' ;_Psect synopsis ! 


cen ewe ee anecent 


PSECT name Allocation PSECT No. Attributes 


, 8 « 00000000 ( -)» 00 ¥ 0.) NOPIC USR CON ABS LCL N 
RMSRMS QOOOOLI9C ¢ 412. 1¢ 1.3 PIC USR CON REL  GBL NOSHR 
$ 00000000 . 2¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE 

Se ees 
: Per formance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 33 90:00:00 .07 00:00:00.37 

Command processing 1 ¢ 00:00:00.75 BBD 90°50 

Pass 33 Ss SF BRR al 

ae table sort 0 1 So 4 0 00:00:02.76 

Pas & Bp 88: §-1 BB 288s -66 

Symbol table output 1 00:00:00.1 0:00:00.79 

Psect synopsis output 00:00:00.0 00:00:00.03 

Cross-reference output 00:00:00.00 es Bg 

Assembler run totals 61 00:00:15.64 0:00:41.09 


The working set Limit was 1500 pages. 

60347 bytes (118 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1152 non-local and 14 local symbols. 
440 source Lines were read in Pass 1, producing 14 object records in Pass 

30 pages of virtual memory were used to define 29 macros. 


eer eme rere eee meee meee mre noe $ 


Macro Library name Macros defined 


~$333SDUAz8: ans. §-08J)0N5 .f -MLB;1 17 
“pee ebUAce MLB; 1 4 

$255$D HS :ESYSLIBISTARLET. MLB; 2 4 
Tevaie (all libraries) 25 


1294 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOCONN/OBJ=0BJ$:RMSOCONN MSRC$:RMSOCONN/UPDATE=(ENHS: RMSOCONN) +EXECML$/LIB+LIB$:RMS/LIB 


:41  CRMS.SRCJRMSOCONN.MAR; 1 


OSHR 5 MORNE = mt NOVEC 
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